﻿Public Class Transaction

    Private _transactionID As Integer
    Private _transactionDescription As String
    Private _transactionDate As DateTime
    Private _transactionCredit As Double
    Private _transactionDebit As Double
    
    Public Sub Transaction()
    	
    	Me._transactionID = -1
    	Me._transactionDescription = ""
    	Me._transactionDate = DateTime.MinValue
    	Me._transactionCredit = -1
    	Me._transactionDebit = -1
    	
    End Sub 
    
    Public Sub Transaction(transactionID As Integer, transactionDescription As String,
    	transactionDate As DateTime, transactionCredit As Double, transactionDebit As Double)
    	
    	Me._transactionID = transactionID
    	Me._transactionDescription = _transactionDescription
    	Me._transactionDate = transactionDate
    	Me._transactionCredit = transactionCredit
    	Me._transactionDebit = transactionDebit
    	
    End Sub 
    
    Public Property TransactionID() As Integer
        Get
            Return Me._transactionID
        End Get
        Set(ByVal value As Integer)
            Me._transactionID = value
        End Set
    End Property

    Public Property TransactionDescription() As String
        Get
            Return Me._transactionDescription
        End Get
        Set(ByVal value As String)
            Me._transactionDescription = value
        End Set
    End Property
    
   	Public Property TransactionDate() As DateTime
		Get
			Return _transactionDate
		End Get
		Set
			_transactionDate = value
		End Set
	End Property
	
	Public Property TransactionCredit() As Double
		Get
			Return _transactionCredit
		End Get
		Set
			_transactionCredit = value
		End Set
	End Property
    	
	Public Property TransactionDebit() As Double
		Get
			Return _transactionDebit
		End Get
		Set
			_transactionDebit = value
		End Set
	End Property	
End Class
